home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / paslib.arc / FRAMWIN.INC < prev    next >
Encoding:
Text File  |  1986-11-02  |  631 b   |  27 lines
  1. procedure Frame(UpperLeftX, UpperLeftY, LowerRightX, LowerRightY: Integer);
  2. var  I : Integer;
  3.  
  4. begin {Frame}
  5.   GotoXY(UpperLeftX, UpperLeftY);
  6.   Write(chr(218));
  7.   for I := (UpperLeftX + 1) to (LowerRightX - 1) do
  8.   begin
  9.     Write(chr(196));
  10.   end;
  11.   Write(chr(191));
  12.   for I := (UpperLeftY + 1) to (LowerRightY - 1) do
  13.   begin
  14.     GotoXY(UpperLeftX , I);  Write(chr(179));
  15.     GotoXY(LowerRightX, I);  Write(chr(179));
  16.   end;
  17.   GotoXY(UpperLeftX, LowerRightY);
  18.   Write(chr(192));
  19.   for I := (UpperLeftX + 1) to (LowerRightX - 1) do
  20.   begin
  21.     Write(chr(196));
  22.   end;
  23.   Write(chr(217));
  24. end; {Frame}
  25.  
  26.  
  27.